Module modWRDBGraph
    Public Sub Main()
        System.Windows.Forms.Application.EnableVisualStyles()
        With New WRDB.Graph.clsGraph
            If My.Application.CommandLineArgs.Count = 0 Then
                .ShowGraph()
            Else
                Dim cmdLine As String = My.Application.CommandLineArgs(0).Replace("""", "")
                If cmdLine.ToUpper.Replace("/", "-") = "-L" Then
                    .iShowGraph(, , True)
                ElseIf My.Computer.FileSystem.FileExists(cmdLine.Replace("""", "")) Then
                    .iShowGraph(, cmdLine.Replace("""", ""))
                Else
                    MessageBox.Show("WRDBGraph usage:\n\t-L or /L\t= load last graph\n\tFilename\t= load specified .graph file on startup (enclose in quotes if path contains spaces)".Replace("\n", vbCr).Replace("\t", vbTab), "WRDBGraph", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End If
            End If
        End With
    End Sub
End Module
